UNIVERSITY OF ILLINOIS 
DIGITAL COMPUTER LABORATORY 



ILLINOIS CODE M 8 - 151 



TITLE: 

TYPE: 

DURATION: 



METHOD OF USE: 



PREPARATION OF TAPES . 
PROGRAM TAPEr, 
PARAMETER TAPES', 



MATRIX TAPE: 



Sums of Squares of Rows and Columns (DOI Only) 
Entire Program, includes DOI 

Forms the sums of squares of rows and columns of a 
matrix. The user needs to punch the parameter and 
matrix tapes as indicated "below and to make a copy 
of the program tape. 

(1) Input program tape 

(2) Input parameter tape 

(3) Input matrix tape , will stop reading at end of each 
column, so input matrix tape on "stop disable" if entire 
matrix is on one tape. Sums of squares of rows and 
then sums of squares of columns are punched. 

See appended set of orders. 

Let (d): number of places in printed results 

(r ) . number of rows in the matrix 

(c ) : number of columns in the matrix 
The parameter tape is punched as follows • 

spaces 

00 3K 

00 (d)F 00 F 

00 5K 

00 (r)F 00 (r)F 

00 7K 

00 (c)F 00 (c)F 

24 12N 

spaces 
The matrix is punched by columns, each element being in 
the form required by Illinois Code N. 3 - 23, 



-2- 

Decinal Hunker Input. Bach elenant should be 
scaled sufficiently to prevent overflow. Bach 
colum should be terminated by the character *W 
CCMBSW3 The capacity of the routine is defined by the 

relation 2r + c < 920. 



Coded By J. o. Neuhaus 

Retyped: 9/24/59 
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ORDER 
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-- 




Code XI 


! 


Decimal Order Input 


i ,. 




00 2^K 










Code N3 




Decimal Number Input 






00 3K 











00 IF 
00 IF 




Counting constant 




1 


50 (100 )F 


by 73F 








7J (100 )F 


by 73F 


Testing constant 






00 6K 










00 F 










00 F 










00 8K 











L5 (100 )F 
00 F 


by 77F 


Testing constant 




1 


26 6kF 
OF F 
00 k^K 




Substitute word 







ho 100F 
50 L 


fr. 32L, 18L 


-Read a column of numbers 




1 


26 2^F 
00 IF 


from 11L 


_ m ij J - 1 ' —> r 




2 


50 (100 )F 


by 9L, 12L 


' 






7J (100 )F 


by 9L, 12L 


-m 2 . . -> 




3 


40 F 

26 hL 


(waste) 


■^o 




k 


iA (ioo )f 
4o (100 )f 


by 18L 
by 18L 


[•increase jth column sum 




5 


22 5L 
L5 F 


(waste) 






6 


L^ (100 )f 
40 (100 )F 


by 28L, 8L, 

ll L 
by 2QL, 8L 

14L 


increase ith row sum 





LOCASIOff 


ORDER 





HCXTBS FACE 2 M 8 


7 


L5 6L 








U 3P 




-Increase addresses of row sum 


8 


40 6L 




•J 




L5 2L 






9 


IA 3P 




.increase addresses of column element 




to 2L 




•mi 


10 


LO k? 




-test for end of column 




32 11L 




-» 


11 


22 1L 








L5 2L 


ft*. 10L 




12 


LO 5F 


■ 


-reset addresses of coluan element 




1*0 2L 


to that of m . 
J oj 


13 


L5 6L 


"i. 




LO 5F 




-reset addresses of row sum to that 


lU 


kO 6L 


U ofM o 




L5 6F 


h 


15 


IA 3F 




-increase coluan counter 




Vo 6f 




-i 


16 


LO 7? 
36 19L 


"1 
.test for last column 


17 


L5 >L 








I* 3F 




-increase addresses of column sum 


18 


1*0 VL 








2* OL 




start a new column 


19 


L5 (100 )F 


fr. 26L f 
ft. l6L, 23L, 
by 19L, 2% 


•*« 


20 


50 19L 
26 10P 




.print the "J? rov 8um 

jth column sum 




L5 19L 






21 


IA 3F 




-increase addresses of ( rc Y ) sum 




k6 19L 






22 


LO 8P 
32 23L 


'_ 


Ltest for last ( ro T ) 
j column 


23 


26 19L 




/row % 
back to f inish punching ( . } sums 




(92 177P) 


fr. 22L, by 
26L 


punch ten line -feed characters 
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2k 


L5 8F 
L4 7F 






- plant address of M A in 8F 


25 


1*6 8F 
L5 9F 








26 


40 23L 






~* replace 92 order with OF order 




2 1 * 19L 




stop; then start punching row sums 


27 


L5 5F 
14 4f 






** plant addresses in test constant 


28 


kO ^F 

^6 6l 








29 


^2 6L 

1*6 19L . 






~- set first column sum address 


30 


L5 5F 
14 5F 








3.1 


to -41/ 






— set first row sum address , ■ . 

. set 

dependent 


32 


to 8f 










26 L 




start program parameters 




00 10K 




— 





5G ( )F 
50 OL 


by 2L 




_ print a row or column sum 


1 


26 78F 










22 65F 




return to body 


2 


"L5-5F 
■46 OL 






— plant number of digits to 


3 


19 57F 
K5 F 






be printed 
- plant (l) n at 3 


V 


to 3F 










.92 47F 


' / punch 12 delay characters 


■5 


92 1^3F 




punch h line-feed characters- - 




26 72F 




start reading and summing squares 

after forming dependent parameters 




00 78K 








Code P2 




Decimal Fraction Print Routine 




00 970K 








Code X7 




Memory Ljum Check 


. .. 


2^999N 




! 

: 1 



